  10 .CHECKBOOK-3/80-CJA
  20 NT=0;clear 
  30 for A=1to 53;@(A)=48;next A;print "ENTER THE 'LAST BALANCE'  FIGURE FROM YOUR ACCOUNT  STATEMENT: $",
  35 gosub 240;$+@(0),@(36),@(36)
  40 print ;print "list EACH DEPOSIT to NOW.";print 
  50 print "$",;gosub 240;$+@(0),@(36),@(36)
  60 print ;print "ANY MORE? Y,N";B=KP;if B=89goto 50
  70 print ;print "ANY SERVICE CHARGE? Y,N";B=KP;if B=89print "$",;gosub 240;@(17)=56;$+@(0),@(36),@(36)
  80 print ;print "list ALL CHECKS UP to     PRESENT. PRESS 'GO' WHEN  FINISHED."
  90 print ;print "$",;gosub 240;@(17)=56;if @(A)#13$+@(0),@(36),@(36);goto 90
 100 print ;print "THE BALANCE IN YOUR CHECK-BOOK SHOULD BE:";print ;gosub 180;print 
 110 print "DOES THAT AGREE WITH YOUR CHECKBOOK? Y,N";B=KP;if B=78goto 130
 120 print "CONGRATULATIONS! GOODBYE.";STOP
 130 print ;print "YOU HAVE AN ARITHMETIC    ERROR IN THE LAST MONTH'S CHECK REGISTER. WE MUST   REVIEW YOUR MATH.
 140 print "START WITH LAST MONTH'S   RECONCILED BALANCE IN YOURCHECKBOOK.";print ;print "WHAT WAS THAT FIGURE?     $",
 145 gosub 240
 150 @(17)=48;$+@(0),@(18),@(36)
 160 print ;print "AMOUNT? $",;gosub 240;print ;print "+ OR -?";Q=KP;if Q=45if @(A)#13@(17)=56
 170 if Q=43if @(A)#13@(17)=48
 172 $+@(0),@(36),@(36);gosub 180;goto 160
 175 goto 120
 180 print ;print "$",;if @(53)=56TV=45
 190 for A=47to 44step -1;if @(A)#48TV=@(A);goto 220
 200 if @(A+1)=48if @(A+2)=48if @(A+3)=48TV=32;goto 220
 210 TV=48
 220 next A;TV=46;TV=@(43);TV=@(42);print 
 230 return 
 240 for A=11to 8step -1;@(A)=KP;if @(A)#31if @(A)#13TV=@(A);next A;TV=46;for A=7to 6step -1;@(A)=KP;if @(A)#31if @(A)#13TV=@(A);next A
 250 if @(A)=31print ;print "I DIDN'T THINK SO EITHER!";print "$",;goto 240
 260 if @(A)=13return 
 270 return 
:return ;run 
>